(in-package :lilu-clim)

;;;
;;; clim
;;;

(defclass clim-application (lilu-app:cl-application-mixin
                            lilu-app:application)
  ())


(lilu-app:register-application
 (make-instance 'clim-application
                :name (string :clim)
                :tags '(:repl :debugger :editor :inspector)
                :system-name :lilu-clim/impl))

;;;
;;;
;;;

(lilu-app:register-application
 (make-instance 'lilu-app:simple-cl-app
                :name :package-apropos
                :tags '(:app)
                :system-name :lilu-clim/apropos))

(lilu-app:register-application
 (make-instance 'lilu-app:simple-cl-app
                :name :system-apropos
                :tags '(:app)
                :system-name :lilu-clim/apropos))

(lilu-app:register-application
 (make-instance 'lilu-app:simple-cl-app
                :name :command-table-apropos
                :tags '(:app)
                :system-name :lilu-clim/apropos))

(lilu-app:register-application
 (make-instance 'lilu-app:simple-cl-app
                :name :symbol-apropos
                :tags '(:app)
                :system-name :lilu-clim/apropos))

(lilu-app:register-application
 (make-instance 'lilu-app:simple-cl-app
                :name :class-apropos
                :tags '(:app)
                :system-name :lilu-clim/apropos))

(lilu-app:register-application
 (make-instance 'lilu-app:simple-cl-app
                :name :command-apropos
                :tags '(:app)
                :system-name :lilu-clim/apropos))

(defun package-apropos (&key wait-p)
  (lilu-desk:open-app :package-apropos :wait-p wait-p))

(defun system-apropos (&key wait-p)
  (lilu-desk:open-app :system-apropos :wait-p wait-p))

(defun command-table-apropos (&key wait-p)
  (lilu-desk:open-app :command-table-apropos :wait-p wait-p))

(defun symbol-apropos (&key wait-p)
  (lilu-desk:open-app :symbol-apropos :wait-p wait-p))

(defun class-apropos (&key wait-p)
  (lilu-desk:open-app :class-apropos :wait-p wait-p))

(defun command-apropos (&key wait-p)
  (lilu-desk:open-app :command-apropos :wait-p wait-p))
